object dlgShapeProperties: TdlgShapeProperties Left = 479 Top = 350 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Shape Properties' ClientHeight = 312 ClientWidth = 550 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyUp = FormKeyUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 289 Height = 261 Shape = bsFrame end object Label1: TLabel Left = 24 Top = 30 Width = 34 Height = 13 Caption = 'Shape:' end object Label2: TLabel Left = 54 Top = 92 Width = 27 Height = 13 Caption = 'Color:' end object lblColor: TLabel Left = 54 Top = 180 Width = 27 Height = 13 Caption = 'Color:' end object lblFrameWidth: TLabel Left = 54 Top = 121 Width = 31 Height = 13 Caption = 'Width:' end object lblColor2: TLabel Left = 54 Top = 237 Width = 36 Height = 13 Caption = 'Color 2:' Enabled = False end object lblGradient: TLabel Left = 54 Top = 208 Width = 43 Height = 13 Caption = 'Gradient:' end object grpPreview: TGroupBox Left = 307 Top = 3 Width = 233 Height = 266 Caption = 'Preview' TabOrder = 10 object ShapeSample: TXShape Left = 10 Top = 23 Width = 213 Height = 232 ActiveMouse = False MouseMode = mmfixed Selected = False UserFixedRatio = False Brush.Color = clYellow Shape = jstCircle GradientStyle = jgdNone GradientColor = clBlack UserVectorString = 'usrRectangle=0,0,1,0,1,1,0,1' end end object cmbShape: TComboBox Left = 64 Top = 24 Width = 215 Height = 24 Hint = 'Please select your desired shape from this dropdown box' Style = csOwnerDrawFixed ItemHeight = 18 ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = cmbShapeChange OnDrawItem = cmbShapeDrawItem end object chkFrame: TCheckBox Left = 24 Top = 64 Width = 185 Height = 17 Hint = 'If this is checked then a frame will be placed around the shape' Caption = 'Shape has visible frame' Checked = True ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 1 OnClick = chkFrameClick end object cmbFrameColor: TColorComboBox Left = 102 Top = 88 Width = 145 Height = 22 Hint = 'Specify the color of the shape frame by clicking here' HTMLcolor = '#000000' ColorValue = clBlack ParentShowHint = False ShowHint = True TabOrder = 2 OnChange = cmbFrameColorChange end object spnframewidth: TSpinEdit Left = 102 Top = 116 Width = 69 Height = 22 Hint = 'Specify the width of the shape'#39's frame' MaxValue = 100 MinValue = 1 ParentShowHint = False ShowHint = True TabOrder = 3 Value = 1 OnChange = spnframewidthChange end object chkfill: TCheckBox Left = 24 Top = 152 Width = 161 Height = 17 Hint = 'Check this option if you would like your shape to have a solid f' + 'ill of color, otherwise it will be transparent' Caption = 'Shape has solid fill' Checked = True ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 4 OnClick = chkfillClick end object cmbFillColor: TColorComboBox Left = 102 Top = 176 Width = 145 Height = 22 Hint = 'Specify the color of the shape fill by clicking here' HTMLcolor = '#FFFF00' ColorValue = clYellow ParentShowHint = False ShowHint = True TabOrder = 5 OnChange = cmbFrameColorChange end object btnOK: TsitBitBtn Left = 367 Top = 277 Width = 83 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 8 OnClick = btnOKClick Images = frmMain.ImageList1 ImageIndex = 0 end object btnCancel: TsitBitBtn Left = 456 Top = 277 Width = 83 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 9 Images = frmMain.ImageList1 ImageIndex = 1 end object cmbFillColor2: TColorComboBox Left = 102 Top = 232 Width = 145 Height = 22 Hint = 'Specify the second color of a gradient fill' HTMLcolor = '#FFFF00' ColorValue = clYellow Enabled = False ParentShowHint = False ShowHint = True TabOrder = 7 OnChange = cmbFrameColorChange end object cmbGradientStyle: TComboBox Left = 102 Top = 204 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 6 OnChange = chkfillClick end end